home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tcl7.4p3.patch < prev    next >
Text File  |  1995-11-27  |  16KB  |  570 lines
  1. Prereq: "7.4p2"
  2. *** ../tcl7.4p2/patchlevel.h    Mon Sep 18 11:41:25 1995
  3. --- patchlevel.h    Mon Nov 27 08:57:48 1995
  4. ***************
  5. *** 17,23 ****
  6.    * See the file "license.terms" for information on usage and redistribution
  7.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  8.    *
  9. !  * @(#) patchlevel.h 1.11 95/09/18 11:41:22
  10.    */
  11.   
  12. ! #define TCL_PATCH_LEVEL "7.4p2"
  13. --- 17,23 ----
  14.    * See the file "license.terms" for information on usage and redistribution
  15.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.    *
  17. !  * @(#) patchlevel.h 1.12 95/11/27 08:57:52
  18.    */
  19.   
  20. ! #define TCL_PATCH_LEVEL "7.4p3"
  21. *** ../tcl7.4p2/./tclCkalloc.c    Mon Jun 19 10:33:12 1995
  22. --- ./tclCkalloc.c    Wed Sep 20 16:43:25 1995
  23. ***************
  24. *** 14,20 ****
  25.    *
  26.    */
  27.   
  28. ! static char sccsid[] = "@(#) tclCkalloc.c 1.9 95/06/19 10:33:11";
  29.   
  30.   #include "tclInt.h"
  31.   
  32. --- 14,20 ----
  33.    *
  34.    */
  35.   
  36. ! static char sccsid[] = "@(#) tclCkalloc.c 1.10 95/09/20 16:43:24";
  37.   
  38.   #include "tclInt.h"
  39.   
  40. ***************
  41. *** 393,399 ****
  42.        * even though BODY_OFFSET is in words on these machines).
  43.        */
  44.   
  45. !     struct mem_header *memp = (struct mem_header *) \
  46.           (((unsigned long) ptr) - BODY_OFFSET);
  47.   
  48.       if (alloc_tracing)
  49. --- 393,399 ----
  50.        * even though BODY_OFFSET is in words on these machines).
  51.        */
  52.   
  53. !     struct mem_header *memp = (struct mem_header *)
  54.           (((unsigned long) ptr) - BODY_OFFSET);
  55.   
  56.       if (alloc_tracing)
  57. ***************
  58. *** 459,465 ****
  59.        * line.
  60.        */
  61.   
  62. !     struct mem_header *memp = (struct mem_header *) \
  63.           (((unsigned long) ptr) - BODY_OFFSET);
  64.   
  65.       copySize = size;
  66. --- 459,465 ----
  67.        * line.
  68.        */
  69.   
  70. !     struct mem_header *memp = (struct mem_header *)
  71.           (((unsigned long) ptr) - BODY_OFFSET);
  72.   
  73.       copySize = size;
  74. *** ../tcl7.4p2/./tclCmdAH.c    Fri May  5 09:29:51 1995
  75. --- ./tclCmdAH.c    Wed Sep 27 11:11:26 1995
  76. ***************
  77. *** 12,18 ****
  78.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  79.    */
  80.   
  81. ! static char sccsid[] = "@(#) tclCmdAH.c 1.98 95/05/05 09:29:51";
  82.   
  83.   #include "tclInt.h"
  84.   #include "tclPort.h"
  85. --- 12,18 ----
  86.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  87.    */
  88.   
  89. ! static char sccsid[] = "@(#) tclCmdAH.c 1.99 95/09/27 11:11:24";
  90.   
  91.   #include "tclInt.h"
  92.   #include "tclPort.h"
  93. ***************
  94. *** 775,780 ****
  95. --- 775,791 ----
  96.           }
  97.           argIndex++;
  98.           format++;
  99. +     }
  100. +     if (width > 1000) {
  101. +         /*
  102. +          * Don't allow arbitrarily large widths:  could cause core
  103. +          * dump when we try to allocate a zillion bytes of memory
  104. +          * below.
  105. +          */
  106. + 
  107. +         width = 1000;
  108. +     } else if (width < 0) {
  109. +         width = 0;
  110.       }
  111.       if (width != 0) {
  112.           sprintf(newPtr, "%d", width);
  113. *** ../tcl7.4p2/./tclMain.c    Thu Jun  8 10:55:57 1995
  114. --- ./tclMain.c    Wed Sep 27 15:32:02 1995
  115. ***************
  116. *** 11,17 ****
  117.    */
  118.   
  119.   #ifndef lint
  120. ! static char sccsid[] = "@(#) tclMain.c 1.21 95/06/08 10:55:55";
  121.   #endif
  122.   
  123.   #include <stdio.h>
  124. --- 11,17 ----
  125.    */
  126.   
  127.   #ifndef lint
  128. ! static char sccsid[] = "@(#) tclMain.c 1.22 95/09/27 15:32:01";
  129.   #endif
  130.   
  131.   #include <stdio.h>
  132. ***************
  133. *** 230,236 ****
  134.       if (code != TCL_OK) {
  135.           fprintf(stderr, "%s\n", interp->result);
  136.       } else if (tty && (*interp->result != 0)) {
  137. !         printf("%s\n", interp->result);
  138.       }
  139.   #ifdef TCL_MEM_DEBUG
  140.       if (quitFlag) {
  141. --- 230,242 ----
  142.       if (code != TCL_OK) {
  143.           fprintf(stderr, "%s\n", interp->result);
  144.       } else if (tty && (*interp->result != 0)) {
  145. !         /*
  146. !          * Important:  use puts and not printf here.  On Solaris 2.3
  147. !          * and 2.4, and perhaps other systems, printf will dump core
  148. !          * if interp->result is big.
  149. !          */
  150. ! 
  151. !         puts(interp->result);
  152.       }
  153.   #ifdef TCL_MEM_DEBUG
  154.       if (quitFlag) {
  155. *** ../tcl7.4p2/./tclUnixAZ.c    Thu Jun 29 14:22:40 1995
  156. --- ./tclUnixAZ.c    Fri Nov 17 15:40:14 1995
  157. ***************
  158. *** 14,20 ****
  159.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  160.    */
  161.   
  162. ! static char sccsid[] = "@(#) tclUnixAZ.c 1.85 95/06/29 14:22:37";
  163.   
  164.   #include "tclInt.h"
  165.   #include "tclPort.h"
  166. --- 14,20 ----
  167.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  168.    */
  169.   
  170. ! static char sccsid[] = "@(#) tclUnixAZ.c 1.87 95/11/17 15:40:14";
  171.   
  172.   #include "tclInt.h"
  173.   #include "tclPort.h"
  174. ***************
  175. *** 783,804 ****
  176.   {
  177.       char string[30];
  178.   
  179. !     sprintf(string, "%ld", statPtr->st_dev);
  180.       if (Tcl_SetVar2(interp, varName, "dev", string, TCL_LEAVE_ERR_MSG)
  181.           == NULL) {
  182.       return TCL_ERROR;
  183.       }
  184. !     sprintf(string, "%ld", statPtr->st_ino);
  185.       if (Tcl_SetVar2(interp, varName, "ino", string, TCL_LEAVE_ERR_MSG)
  186.           == NULL) {
  187.       return TCL_ERROR;
  188.       }
  189. !     sprintf(string, "%ld", statPtr->st_mode);
  190.       if (Tcl_SetVar2(interp, varName, "mode", string, TCL_LEAVE_ERR_MSG)
  191.           == NULL) {
  192.       return TCL_ERROR;
  193.       }
  194. !     sprintf(string, "%ld", statPtr->st_nlink);
  195.       if (Tcl_SetVar2(interp, varName, "nlink", string, TCL_LEAVE_ERR_MSG)
  196.           == NULL) {
  197.       return TCL_ERROR;
  198. --- 783,804 ----
  199.   {
  200.       char string[30];
  201.   
  202. !     sprintf(string, "%ld", (long) statPtr->st_dev);
  203.       if (Tcl_SetVar2(interp, varName, "dev", string, TCL_LEAVE_ERR_MSG)
  204.           == NULL) {
  205.       return TCL_ERROR;
  206.       }
  207. !     sprintf(string, "%ld", (long) statPtr->st_ino);
  208.       if (Tcl_SetVar2(interp, varName, "ino", string, TCL_LEAVE_ERR_MSG)
  209.           == NULL) {
  210.       return TCL_ERROR;
  211.       }
  212. !     sprintf(string, "%ld", (long) statPtr->st_mode);
  213.       if (Tcl_SetVar2(interp, varName, "mode", string, TCL_LEAVE_ERR_MSG)
  214.           == NULL) {
  215.       return TCL_ERROR;
  216.       }
  217. !     sprintf(string, "%ld", (long) statPtr->st_nlink);
  218.       if (Tcl_SetVar2(interp, varName, "nlink", string, TCL_LEAVE_ERR_MSG)
  219.           == NULL) {
  220.       return TCL_ERROR;
  221. ***************
  222. *** 813,834 ****
  223.           == NULL) {
  224.       return TCL_ERROR;
  225.       }
  226. !     sprintf(string, "%ld", statPtr->st_size);
  227.       if (Tcl_SetVar2(interp, varName, "size", string, TCL_LEAVE_ERR_MSG)
  228.           == NULL) {
  229.       return TCL_ERROR;
  230.       }
  231. !     sprintf(string, "%ld", statPtr->st_atime);
  232.       if (Tcl_SetVar2(interp, varName, "atime", string, TCL_LEAVE_ERR_MSG)
  233.           == NULL) {
  234.       return TCL_ERROR;
  235.       }
  236. !     sprintf(string, "%ld", statPtr->st_mtime);
  237.       if (Tcl_SetVar2(interp, varName, "mtime", string, TCL_LEAVE_ERR_MSG)
  238.           == NULL) {
  239.       return TCL_ERROR;
  240.       }
  241. !     sprintf(string, "%ld", statPtr->st_ctime);
  242.       if (Tcl_SetVar2(interp, varName, "ctime", string, TCL_LEAVE_ERR_MSG)
  243.           == NULL) {
  244.       return TCL_ERROR;
  245. --- 813,834 ----
  246.           == NULL) {
  247.       return TCL_ERROR;
  248.       }
  249. !     sprintf(string, "%ld", (long) statPtr->st_size);
  250.       if (Tcl_SetVar2(interp, varName, "size", string, TCL_LEAVE_ERR_MSG)
  251.           == NULL) {
  252.       return TCL_ERROR;
  253.       }
  254. !     sprintf(string, "%ld", (long) statPtr->st_atime);
  255.       if (Tcl_SetVar2(interp, varName, "atime", string, TCL_LEAVE_ERR_MSG)
  256.           == NULL) {
  257.       return TCL_ERROR;
  258.       }
  259. !     sprintf(string, "%ld", (long) statPtr->st_mtime);
  260.       if (Tcl_SetVar2(interp, varName, "mtime", string, TCL_LEAVE_ERR_MSG)
  261.           == NULL) {
  262.       return TCL_ERROR;
  263.       }
  264. !     sprintf(string, "%ld", (long) statPtr->st_ctime);
  265.       if (Tcl_SetVar2(interp, varName, "ctime", string, TCL_LEAVE_ERR_MSG)
  266.           == NULL) {
  267.       return TCL_ERROR;
  268. ***************
  269. *** 1806,1812 ****
  270.   {
  271.       int count, i, result;
  272.       double timePer;
  273. ! #if NO_GETTOD
  274.       struct tms dummy2;
  275.       long start, stop;
  276.   #else
  277. --- 1806,1812 ----
  278.   {
  279.       int count, i, result;
  280.       double timePer;
  281. ! #ifdef NO_GETTOD
  282.       struct tms dummy2;
  283.       long start, stop;
  284.   #else
  285. ***************
  286. *** 1826,1832 ****
  287.           " command ?count?\"", (char *) NULL);
  288.       return TCL_ERROR;
  289.       }
  290. ! #if NO_GETTOD
  291.       start = times(&dummy2);
  292.   #else
  293.       gettimeofday(&start, &tz);
  294. --- 1826,1832 ----
  295.           " command ?count?\"", (char *) NULL);
  296.       return TCL_ERROR;
  297.       }
  298. ! #ifdef NO_GETTOD
  299.       start = times(&dummy2);
  300.   #else
  301.       gettimeofday(&start, &tz);
  302. ***************
  303. *** 1843,1849 ****
  304.           return result;
  305.       }
  306.       }
  307. ! #if NO_GETTOD
  308.       stop = times(&dummy2);
  309.       timePer = (((double) (stop - start))*1000000.0)/CLK_TCK;
  310.   #else
  311. --- 1843,1849 ----
  312.           return result;
  313.       }
  314.       }
  315. ! #ifdef NO_GETTOD
  316.       stop = times(&dummy2);
  317.       timePer = (((double) (stop - start))*1000000.0)/CLK_TCK;
  318.   #else
  319. ***************
  320. *** 1892,1898 ****
  321.                    * newline. */
  322.   {
  323.       int result = TCL_OK;
  324. !     int i, pid, length, abnormalExit;
  325.       WAIT_STATUS_TYPE waitStatus;
  326.       char *msg;
  327.   
  328. --- 1892,1898 ----
  329.                    * newline. */
  330.   {
  331.       int result = TCL_OK;
  332. !     int i, pid, length, abnormalExit, anyErrorInfo;
  333.       WAIT_STATUS_TYPE waitStatus;
  334.       char *msg;
  335.   
  336. ***************
  337. *** 1964,1969 ****
  338. --- 1964,1970 ----
  339.        * string.
  340.        */
  341.   
  342. +     anyErrorInfo = 0;
  343.       if (errorId >= 0) {
  344.       while (1) {
  345.   #        define BUFFER_SIZE 1000
  346. ***************
  347. *** 1984,1989 ****
  348. --- 1985,1991 ----
  349.           }
  350.           buffer[count] = 0;
  351.           Tcl_AppendResult(interp, buffer, (char *) NULL);
  352. +         anyErrorInfo = 1;
  353.       }
  354.       close(errorId);
  355.       }
  356. ***************
  357. *** 1993,1999 ****
  358.        * at all, generate an error message here.
  359.        */
  360.   
  361. !     if (abnormalExit && (*interp->result == 0)) {
  362.       Tcl_AppendResult(interp, "child process exited abnormally",
  363.           (char *) NULL);
  364.       }
  365. --- 1995,2001 ----
  366.        * at all, generate an error message here.
  367.        */
  368.   
  369. !     if (abnormalExit && !anyErrorInfo) {
  370.       Tcl_AppendResult(interp, "child process exited abnormally",
  371.           (char *) NULL);
  372.       }
  373. *** ../tcl7.4p2/./tclUnixStr.c    Thu Jun 29 08:21:26 1995
  374. --- ./tclUnixStr.c    Fri Nov  3 10:59:34 1995
  375. ***************
  376. *** 13,19 ****
  377.    */
  378.   
  379.   #ifndef lint
  380. ! static char sccsid[] = "@(#) tclUnixStr.c 1.24 95/06/29 08:21:25";
  381.   #endif /* not lint */
  382.   
  383.   #include "tclInt.h"
  384. --- 13,19 ----
  385.    */
  386.   
  387.   #ifndef lint
  388. ! static char sccsid[] = "@(#) tclUnixStr.c 1.25 95/11/03 10:59:35";
  389.   #endif /* not lint */
  390.   
  391.   #include "tclInt.h"
  392. ***************
  393. *** 215,221 ****
  394.   #ifdef ELNRNG
  395.       case ELNRNG: return "ELNRNG";
  396.   #endif
  397. ! #ifdef ELOOP
  398.       case ELOOP: return "ELOOP";
  399.   #endif
  400.   #ifdef EMFILE
  401. --- 215,221 ----
  402.   #ifdef ELNRNG
  403.       case ELNRNG: return "ELNRNG";
  404.   #endif
  405. ! #if defined(ELOOP) && (!defined(ENOENT) || (ELOOP != ENOENT))
  406.       case ELOOP: return "ELOOP";
  407.   #endif
  408.   #ifdef EMFILE
  409. *** ../tcl7.4p2/./tclUnixUtil.c    Mon Aug 28 08:57:36 1995
  410. --- ./tclUnixUtil.c    Mon Nov 13 14:17:46 1995
  411. ***************
  412. *** 16,22 ****
  413.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  414.    */
  415.   
  416. ! static char sccsid[] = "@(#) tclUnixUtil.c 1.57 95/08/28 08:57:37";
  417.   
  418.   #include "tclInt.h"
  419.   #include "tclPort.h"
  420. --- 16,22 ----
  421.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  422.    */
  423.   
  424. ! static char sccsid[] = "@(#) tclUnixUtil.c 1.58 95/11/13 14:17:50";
  425.   
  426.   #include "tclInt.h"
  427.   #include "tclPort.h"
  428. ***************
  429. *** 218,224 ****
  430.       int status, result;
  431.   
  432.       for (detPtr = detList, prevPtr = NULL; detPtr != NULL; ) {
  433. !     result = waitpid(detPtr->pid, &status, WNOHANG);
  434.       if ((result == 0) || ((result == -1) && (errno != ECHILD))) {
  435.           prevPtr = detPtr;
  436.           detPtr = detPtr->nextPtr;
  437. --- 218,224 ----
  438.       int status, result;
  439.   
  440.       for (detPtr = detList, prevPtr = NULL; detPtr != NULL; ) {
  441. !     result = (int) waitpid((pid_t) detPtr->pid, &status, WNOHANG);
  442.       if ((result == 0) || ((result == -1) && (errno != ECHILD))) {
  443.           prevPtr = detPtr;
  444.           detPtr = detPtr->nextPtr;
  445. ***************
  446. *** 1427,1433 ****
  447.   {
  448.       int result;
  449.       while (1) {
  450. !     result = waitpid(pid, statPtr, options);
  451.       if ((result != -1) || (errno != EINTR)) {
  452.           return result;
  453.       }
  454. --- 1427,1433 ----
  455.   {
  456.       int result;
  457.       while (1) {
  458. !     result = (int) waitpid((pid_t) pid, statPtr, options);
  459.       if ((result != -1) || (errno != EINTR)) {
  460.           return result;
  461.       }
  462. *** ../tcl7.4p2/./changes    Mon Sep 18 11:04:09 1995
  463. --- ./changes    Mon Nov 27 08:57:58 1995
  464. ***************
  465. *** 1,6 ****
  466.   Recent user-visible changes to Tcl:
  467.   
  468. ! sccsid = @(#) changes 1.16 95/09/18 11:04:07
  469.   
  470.   1. No more [command1] [command2] construct for grouping multiple
  471.   commands on a single command line.
  472. --- 1,6 ----
  473.   Recent user-visible changes to Tcl:
  474.   
  475. ! sccsid = @(#) changes 1.17 95/11/27 08:58:02
  476.   
  477.   1. No more [command1] [command2] construct for grouping multiple
  478.   commands on a single command line.
  479. ***************
  480. *** 1245,1251 ****
  481.   
  482.   8/4/95 (bug fix) C-level trace callbacks for variables were sometimes
  483.   receiving the PART1_NOT_PARSED flag, which could cause errors in
  484. ! subsequent Tcl library calls using the flags.
  485.   
  486.   8/4/95 (bug fix) Calls to toupper and tolower weren't using the
  487.   UCHAR macros, which caused trouble in non-U.S. locales. (JO)
  488. --- 1245,1251 ----
  489.   
  490.   8/4/95 (bug fix) C-level trace callbacks for variables were sometimes
  491.   receiving the PART1_NOT_PARSED flag, which could cause errors in
  492. ! subsequent Tcl library calls using the flags. (JO)
  493.   
  494.   8/4/95 (bug fix) Calls to toupper and tolower weren't using the
  495.   UCHAR macros, which caused trouble in non-U.S. locales. (JO)
  496. ***************
  497. *** 1252,1260 ****
  498.   
  499.   8/25/95 (bug fix) Undid change from 7/19, so that commands can stay
  500.   around while their deletion callbacks execute.  Added lots of code to
  501. ! handle all of the reentrancy problems that this opens up.
  502.   
  503.   8/28/95 (bug fix) Exec wasn't handling bad user names properly, as
  504. ! in "exec ~bogus_user/foo".
  505.   
  506.   ----------------- Released patch 7.4p2, 9/19/95 -----------------------
  507. --- 1252,1273 ----
  508.   
  509.   8/25/95 (bug fix) Undid change from 7/19, so that commands can stay
  510.   around while their deletion callbacks execute.  Added lots of code to
  511. ! handle all of the reentrancy problems that this opens up. (JO)
  512.   
  513.   8/28/95 (bug fix) Exec wasn't handling bad user names properly, as
  514. ! in "exec ~bogus_user/foo". (JO)
  515.   
  516.   ----------------- Released patch 7.4p2, 9/19/95 -----------------------
  517. + 
  518. + 9/27/95 (bug fix) The "format" command didn't check for huge or negative
  519. + width specifiers, which could cause core dumps. (JO)
  520. + 
  521. + 9/27/95 (bug fix) Core dumps could occur if an interactive command typed
  522. + to tclsh returned a very long result for tclsh to print out.  The bug is
  523. + actually in printf (in Solaris 2.3 and 2.4, at least);  switched to use
  524. + puts instead.  (JO)
  525. + 
  526. + 10/1/95 (bug fix) "exec" command wasn't always generating the
  527. + "child process exited abnormally" message when it should have.  (JO)
  528. + 
  529. + ----------------- Released patch 7.4p3, 12/28/95 -----------------------
  530. *** ../tcl7.4p2/./tests/lsort.test    Mon Jun  5 17:00:02 1995
  531. --- ./tests/lsort.test    Mon Oct 30 08:03:20 1995
  532. ***************
  533. *** 10,16 ****
  534.   # See the file "license.terms" for information on usage and redistribution
  535.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  536.   #
  537. ! # @(#) lsort.test 1.6 95/06/05 17:00:02
  538.   
  539.   if {[string compare test [info procs test]] == 1} then {source defs}
  540.   
  541. --- 10,16 ----
  542.   # See the file "license.terms" for information on usage and redistribution
  543.   # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  544.   #
  545. ! # @(#) lsort.test 1.7 95/10/30 08:03:22
  546.   
  547.   if {[string compare test [info procs test]] == 1} then {source defs}
  548.   
  549. ***************
  550. *** 122,134 ****
  551.   } {1 {bad switch "-in": must be -ascii, -integer, -real, -increasing -decreasing, or -command}}
  552.   test lsort-5.5 {lsort errors: disallow recursion} {
  553.       proc x args {lsort {a b c}}
  554. !     list [catch {lsort -command x {3 7}} msg] $msg $errorInfo
  555. ! } {1 {can't invoke "lsort" recursively} {can't invoke "lsort" recursively
  556. !     while executing
  557. ! "lsort {a b c}"
  558. !     (procedure "x" line 1)
  559. !     invoked from within
  560. ! "x 3 7"
  561. !     (user-defined comparison command)
  562. !     invoked from within
  563. ! "lsort -command x {3 7}"}}
  564. --- 122,126 ----
  565.   } {1 {bad switch "-in": must be -ascii, -integer, -real, -increasing -decreasing, or -command}}
  566.   test lsort-5.5 {lsort errors: disallow recursion} {
  567.       proc x args {lsort {a b c}}
  568. !     list [catch {lsort -command x {3 7}} msg] $msg
  569. ! } {1 {can't invoke "lsort" recursively}}
  570.